﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>
<card id="card1" title="PK胜利前十"><p>
<%

ids=myid
%>

<%Set Rsl = Server.CreateObject("Adodb.Recordset")
			Sqll = "SELECT top 30 pk,ids,pk1 FROM sx order by pk desc"
			Rsl.Open Sqll,liao,1,1
			if not (rsl.bof and rsl.eof)  then 
				if rsl.RecordCount>5 then
					aaaaa=30
				else
					aaaaa=rsl.RecordCount
				end if%>

				==PK竞技场==<br/>

				<%For i=1 to aaaaa
					If Rsl.Eof Then
						exit For
					end if%>
					<%=i%>.<a href='/userview.asp?id=<%=Rsl("ids")%>&amp;cc=<%=cc%>&amp;ve=<%=ve%>'><%=qingtian.name(Rsl("ids"))%>(ID:<%=Rsl("ids")%>)</a>[胜<%=rsl("pk")%>/败<%=rsl("pk1")%>]<br/>

				<%Rsl.MoveNext
				Next
			end if
			Rsl.close
			set rsl=nothing
                         
			%>

----------<br/>
<a href="ph.asp?cc=<%=cc%>&amp;ve=<%=ve%>">[江湖排行]</a><br/>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">[江湖首页]</a><br/>


<%qingtian.shuchu%>




